home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / !Interfaces / Universal Interfaces 2.0a1 / PInterfaces / Translation.p < prev    next >
Encoding:
Text File  |  1994-07-17  |  3.7 KB  |  145 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Translation.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a1.  ETO #15, MPW prerelease.  Sunday, July 17, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT Translation;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __TRANSLATION__}
  27. {$SETC __TRANSLATION__ := 1}
  28.  
  29. {$I+}
  30. {$SETC TranslationIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$PUSH}
  35. {$ALIGN MAC68K}
  36. {$LibExport+}
  37. {$IFC UNDEFINED REZ }
  38.  
  39. {$IFC UNDEFINED __TYPES__}
  40. {$I Types.p}
  41. {$ENDC}
  42. {    ConditionalMacros.p                                            }
  43.  
  44. {$IFC UNDEFINED __FILES__}
  45. {$I Files.p}
  46. {$ENDC}
  47. {    MixedMode.p                                                    }
  48. {    OSUtils.p                                                    }
  49.  
  50. {$IFC UNDEFINED __COMPONENTS__}
  51. {$I Components.p}
  52. {$ENDC}
  53.  
  54. {$IFC UNDEFINED __TRANSLATIONEXTENSIONS__}
  55. {$I TranslationExtensions.p}
  56. {$ENDC}
  57. {    Memory.p                                                    }
  58. {    Quickdraw.p                                                    }
  59. {        QuickdrawText.p                                            }
  60. {    Components.p                                                }
  61.     
  62. TYPE
  63. DocOpenMethod = INTEGER;
  64.  
  65.  
  66. CONST
  67.     domCannot                    = 0;
  68.     domNative                    = 1;
  69.     domTranslateFirst            = 2;
  70.     domWildcard                    = 3;
  71.  
  72.     
  73. TYPE
  74. TypesBlock = ARRAY [0..63] OF OSType;
  75.  
  76.     TypesBlockPtr = ^OSType;
  77.  
  78.  
  79. CONST
  80.     TranslationScrapProgressDialogID = -16555;
  81.  
  82.  
  83. TYPE
  84.     FileTranslationSpec = RECORD
  85.         componentSignature:        OSType;
  86.         translationSystemInfo:    Ptr;
  87.         src:                    FileTypeSpec;
  88.         dst:                    FileTypeSpec;
  89.     END;
  90.     FileTranslationSpecArrayPtr = ^FileTranslationSpec;
  91.  
  92.  
  93. FUNCTION GetFileTypesThatAppCanNativelyOpen(appVRefNumHint: INTEGER; appSignature: OSType; VAR nativeTypes: FileType): OSErr;
  94.     {$IFC NOT GENERATINGCFM}
  95.     INLINE $701C, $ABFC;
  96.     {$ENDC}
  97. FUNCTION ExtendFileTypeList(originalTypeList: FileType; numberOriginalTypes: INTEGER; VAR extendedTypeList: FileType; VAR numberExtendedTypes: INTEGER): OSErr;
  98.     {$IFC NOT GENERATINGCFM}
  99.     INLINE $7009, $ABFC;
  100.     {$ENDC}
  101. FUNCTION CanDocBeOpened(targetDocument: FSSpec; appVRefNumHint: INTEGER; appSignature: OSType; nativeTypes: FileType; onlyNative: BOOLEAN; VAR howToOpen: DocOpenMethod; VAR howToTranslate: FileTranslationSpec): OSErr;
  102.     {$IFC NOT GENERATINGCFM}
  103.     INLINE $701E, $ABFC;
  104.     {$ENDC}
  105. FUNCTION GetFileTranslationPaths(VAR srcDocument: FSSpec; dstDocType: FileType; maxResultCount: INTEGER; resultBuffer: FileTranslationSpecArrayPtr): INTEGER;
  106.     {$IFC NOT GENERATINGCFM}
  107.     INLINE $7038, $ABFC;
  108.     {$ENDC}
  109. FUNCTION GetPathFromTranslationDialog(theDocument: FSSpec; theApplication: FSSpec; typeList: TypesBlockPtr; VAR howToOpen: DocOpenMethod; VAR howToTranslate: FileTranslationSpec): OSErr;
  110.     {$IFC NOT GENERATINGCFM}
  111.     INLINE $7037, $ABFC;
  112.     {$ENDC}
  113. FUNCTION TranslateFile(sourceDocument: FSSpec; destinationDocument: FSSpec; howToTranslate: FileTranslationSpec): OSErr;
  114.     {$IFC NOT GENERATINGCFM}
  115.     INLINE $700C, $ABFC;
  116.     {$ENDC}
  117. FUNCTION GetDocumentKindString(docVRefNum: INTEGER; docType: OSType; docCreator: OSType; VAR kindString: Str63): OSErr;
  118.     {$IFC NOT GENERATINGCFM}
  119.     INLINE $7016, $ABFC;
  120.     {$ENDC}
  121. FUNCTION GetTranslationExtensionName(translationMethod: FileTranslationSpec; VAR extensionName: Str31): OSErr;
  122.     {$IFC NOT GENERATINGCFM}
  123.     INLINE $7036, $ABFC;
  124.     {$ENDC}
  125. TYPE
  126.     GetScrapDataProcPtr = ProcPtr;  { FUNCTION (requestedFormat: ScrapType; dataH: Handle; srcDataGetterRefCon: UNIV Ptr): OSErr; }
  127.  
  128.  
  129. FUNCTION TranslateScrap(sourceDataGetter: GetScrapDataProcPtr; sourceDataGetterRefCon: UNIV Ptr; destinationFormat: ScrapType; destinationData: Handle; progressDialogID: INTEGER): OSErr;
  130.     {$IFC NOT GENERATINGCFM}
  131.     INLINE $700E, $ABFC;
  132.     {$ENDC}
  133. {$ENDC}
  134.  
  135. {$ALIGN RESET}
  136. {$POP}
  137.  
  138. {$SETC UsingIncludes := TranslationIncludes}
  139.  
  140. {$ENDC} {__TRANSLATION__}
  141.  
  142. {$IFC NOT UsingIncludes}
  143.  END.
  144. {$ENDC}
  145.